unit uForm_Option;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvBaseDlg, JvSelectDirectory;

type
  TForm_Option = class(TForm)
    Label1: TLabel;
    Edit_AppSoapAddr: TEdit;
    Button_OK: TButton;
    Button_Cancel: TButton;
    JvSelectDirectory1: TJvSelectDirectory;
  private
    FUseDirectoryServer : boolean;

    function GetAppSoapAddr:string;
    procedure SetAppSoapAddr(AValue : string);

    { Private declarations }
  public
    { Public declarations }
    property AppSoapAddr : string read GetAppSoapAddr write SetAppSoapAddr;
  end;

var
  Form_Option: TForm_Option;

implementation
uses StrUtils;

{$R *.dfm}

function TForm_Option.GetAppSoapAddr: string;
begin
  Result := Edit_AppSoapAddr.Text;
end;


procedure TForm_Option.SetAppSoapAddr(AValue: string);
begin
  Edit_AppSoapAddr.Text := AValue;

end;


end.
